Notes/Domino 6 and 7 Forum : Error calling Store Procedures

Hi everybody...

I developed an application for Domino R5 with LC LSX (using ODBC2 driver for connecting to MS SQL Server 2000). In domino R5 it worked great, but when I moved the application to ND6 I'm getting this error when I call Store Procedures in MS SQL.

-----------------------------------------------------
Agent message: Internal Error Text= Error: Data overflow in field 'nombre', Connector 'odbc2', Method -Call-
Internal Error Code= 12801
External Error Text=
External Error Code= 0
-----------------------------------------------------

Store Procedure Code
****************************************************************************
CREATE PROCEDURE InsertarMedico @idt varchar(50),@cedula varchar(10),@nombre varchar(50),@apellido varchar(30),@especialidad varchar(10),@team varchar(6),@fecha varchar(15),@email varchar(30),@sexo varchar(1), @telefono varchar(25),@contrato varchar (25) AS

SET DATEFORMAT DMY

Insert Into E03_medico (E03_cedula,E03_nombres,E03_apellidos,E06_codigo,E07_codigo,E03_sexo,E03_fecha,E03_email,E03_telefono,E03_contrato)
Values (@cedula,@nombre,@apellido,@team,@especialidad,@sexo,@fecha,@email,@telefono,@contrato)

Select 1 as valor
GO
****************************************************************************

LotusScrip Agent Code
****************************************************************************
Call ConnectSQL( s , bd , LC_S , src)

src.Procedure = "InsertarMedico"
LC_S.clearstatus
Set Parm = Parms.Append ("IDT", LCTYPE_INT)
Parm.text = 1
Set Parm = Parms.Append ("cedula", LCTYPE_TEXT)
Parm.text = doc.CedulaMedico(0)
Set Parm = Parms.Append ("nombre", LCTYPE_TEXT)
Parm.text = doc.NombreMedico(0)
Set Parm = Parms.Append ("apellido", LCTYPE_TEXT)
Parm.text = ""
Set Parm = Parms.Append ("especialidad", LCTYPE_TEXT)
Parm.text = doc.CodEspecialidad(0)
Set Parm = Parms.Append ("team", LCTYPE_TEXT)
Parm.text = doc.CodTeam(0)
Set Parm = Parms.Append ("fecha", LCTYPE_TEXT)
Parm.text = doc.Dia(0) & "/" & doc.Mes(0) & "/" & doc.Year(0)
Set Parm = Parms.Append ("email", LCTYPE_TEXT)
Parm.text = doc.EmailMedico(0)
Set Parm = Parms.Append ("sexo", LCTYPE_TEXT)
Parm.text = doc.SexoMedico(0)
Set Parm = Parms.Append ("telefono", LCTYPE_TEXT)
Parm.text = doc.TelefonoMedico(0)
Set Parm = Parms.Append ("contrato", LCTYPE_TEXT)
Parm.text = doc.Contrato(0)
Dim fieldIndex As Integer

fieldIndex = 1

If ( src.Call (Parms, 1 , Result) = 0) Then
Msgbox "*****************************************************************"
Msgbox "Error: El Procedimiento Almacenado no Trajo Registros"
Msgbox "*****************************************************************"
Exit Sub

-------------- ConnectSQL Code---------------------------
Sub ConectarSQL(s As notessession , bd As notesdatabase, LC_S As LCSession , src As LCConnection )
On Error Goto handler

Dim OSdoc As notesdocument
Dim dc As notesdocumentcollection
Dim Cadena As String
Dim Fecha As New notesdatetime("12/01/94")
Dim Admin As notesdocument

Call BuscarAdminDocument(s,bd,admin)

src.disconnect
LC_S.clearstatus
src.Server = admin.OS_ODBC(0)
src.UserID = admin.OSUserId(0)
src.Password = admin.OSPasswordBD(0)
src.connect

Exit Sub
Handler:
Dim msg As String
Dim errortext As String
Dim msgcode As Long
Dim status As Long
If (LC_S.status <> LCSUCCESS) Then
status=LC_S.getstatus(errortext,msgcode,msg)
Print "Internal Error Text= " & errortext & Chr(10) & "Internal Error Code= " & status & Chr(10) & "External Error Text= " & msg & Chr(10) & "External Error Code= " & msgcode
Else
Print "Lotus Notes Error Text= " & Error() & Chr(10) & "Lotus Notes Error Code= " & Err()
src.Disconnect
LC_S.ClearStatus
End If
End

End Sub

---------------------------------------------------------

Anybody can help me ?
TIA
Luis